home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Util / dtype / WarpPCXdt.lha / WarpPCXdt / Install_WarpPCX next >
Text File  |  2004-08-04  |  17KB  |  534 lines
  1. ; $VER: Install_WarpPCX 1.5 (4.8.2004)
  2. ;   by Oliver Roberts (oliver@futaura.co.uk)
  3.  
  4. (if (= (exists "Env:Language") 1)
  5.     (set @language (getenv "Language"))
  6. )
  7.  
  8. (set #str-dtname "PCX")
  9.  
  10. ;*****************
  11. ; English strings
  12. ;
  13. (set #str-welcome (cat
  14.     "\n\nWarp%s.datatype\n\n"
  15.     "Copyright © 2003-2004 Oliver Roberts, All Rights Reserved.\n\n"
  16.     "This software is SHAREWARE, which means you are expected to register "
  17.         "if you find it useful after an evaluation period of 30 days, "
  18.         "and wish to continue using it.\n\n"
  19.     "www.warpdt.co.uk")
  20. )
  21. (set #str-kick3 "You must be running Kickstart 3.0 or higher to use datatypes.")
  22. (set #str-installdt "Installing Datatype")
  23. (set #str-installclass "Installing Warp%s.datatype class")
  24. (set #str-installdes "Installing Descriptor")
  25. (set #str-wrongcpu "You must have at least a 68020 processor to use this datatype.")
  26. (set #str-oldpicdt (cat
  27.     "Warp%s.datatype needs picture.datatype v43 or higher.\n\n"
  28.     "Such a datatype is supplied with AmigaOS (3.5 or higher), P96 and CyberGraphX."
  29. ))
  30. (set #str-backupdesc (cat
  31.     "You already have a %s datatype descriptor installed.  Would you "
  32.     "like to keep a backup for safe-keeping?\n\n(if this is your first "
  33.     "time installing Warp%s.datatype, you probably should)"
  34. ))
  35. (set #str-backup "Backup")
  36. (set #str-overwrite "Overwrite")
  37. (set #str-backupdir "Where should the %s descriptor be backed up to?")
  38. (set #str-backingup "Backing up files")
  39. (set #str-reboot (cat
  40.     "You may need to reboot for the changes to take effect.\n\n"
  41.     "Also, if you have any other PCX datatypes in DEVS:Datatypes, "
  42.     "you will probably have to remove them manually."
  43. ))
  44. (set #str-askcpu "Choose which version of the library to install, to match your Amiga's processor type")
  45. (set #str-patch "Creating the CPU specific version you asked for")
  46. (set #str-askmorphos (cat
  47.     "It's possible to also have the 68k or WarpOS version installed (will "
  48.     "automatically be used if you boot without MorphOS):"
  49. ))
  50. (set #str-earlyterm (cat
  51.     "Early Term is enabled in your WarpOS prefs - this usually causes "
  52.     "major problems, which affects this and other programs.  It is "
  53.     "therefore recommended that you switch that setting off.  Switch "
  54.     "Early Term off now?"
  55. ))
  56. (set #str-off "Switch off")
  57. (set #str-leave "Leave it as it is")
  58. ; v1.7
  59. (set #str-woserr (cat
  60.     "The WarpOS version of Warp%s requires WarpUp 5.0 or higher. "
  61.     "WarpUp 4.0 is no longer supported, since it contains bugs which "
  62.     "prevent this datatype from working correctly, so you will need to "
  63.     "upgrade."
  64. ))
  65. (set #str-classdir "Select where to install the datatype class\n(don't change from the default unless you know what you're doing)")
  66. (set #str-descdir "Select where to install the datatype descriptor\n(don't change from the default unless you know what you're doing)")
  67.  
  68. ;*****************
  69. ; Spanish strings (01.09.01) by Dámaso D. Estévez <amidde@arrakis.es>
  70. ;
  71. (if (= @language "español") (
  72.  
  73.   (set #str-welcome (cat
  74.     "\n\nWarp%s.datatype\n\n"
  75.     "Copyright © 2003-2004 Oliver Roberts.\nTodos los derechos reservados.\n\n"
  76.     "Este producto es \"SHAREWARE\": eso significa que ha de registrarse "
  77.     "transcurrido el período de evaluación de 30 días, si, encontrándolo útil, "
  78.     "desea seguir utilizándolo.\n\n"
  79.     "http://www.warpdt.co.uk")
  80.   )
  81.  
  82.   (set #str-kick3 "Necesita disponer de la Kickstart 3.0 o superior para utilizar los tipos de datos.")
  83.   (set #str-installdt "Instalando el tipo de dato")
  84.   (set #str-installclass "Instalando la clase \"Warp%s.datatype\"")
  85.   (set #str-installdes "Instalando el descriptor")
  86.   (set #str-wrongcpu "Necesita disponer de al menos un microprocesador 68020 para utilizar este tipo de dato.")
  87.  
  88.   (set #str-oldpicdt (cat
  89.     "\"Warp%s.datatype\" necesita del módulo \"picture.datatype\" versión 43 "
  90.     "o superior (es suministrado con la versión 3.5 del sistema operativo, "
  91.     "el paquete P96 y el paquete CyberGraphX)."
  92.     ))
  93.  
  94.   (set #str-backupdesc (cat
  95.     "Ya dispone del descriptor %s en su sistema.\n¿Desea que guarde "
  96.     "una copia de éste por motivos de seguridad?\n\n(si es la primera "
  97.     "vez que instala el tipo de dato Warp%s, debería responder afirmativamente)."
  98.   ))
  99.  
  100.   (set #str-backup "Copia de seguridad")
  101.   (set #str-overwrite "Sobreescribir")
  102.   (set #str-backupdir "¿Dónde debería guardar la copia de seguridad del descriptor \"%s\"?")
  103.   (set #str-backingup "Realizando la copia de seguridad de los ficheros")
  104.  
  105.   (set #str-reboot (cat
  106.     "Puede que necesite reiniciar su equipo para que los cambios "
  107.     "tengan efecto.\n\nPor otro lado, si dispone de otro(s) tipo(s) de datos "
  108.     "PCX en \"DEVS:Datatypes\", probablemente deberá eliminarlo(s) de "
  109.     "su sistema de forma manual."
  110.   ))
  111.  
  112.  
  113.   (set #str-askcpu "Elija qué versión debe ser instalada según el tipo de microprocesador de su equipo Amiga")
  114.   (set #str-patch "Se está creando la versión específica para el microprocesador elegido")
  115.  
  116.   (set #str-earlyterm (cat
  117.     "La opción \"Terminador temprano\" (o \"Early Term\" en la versión en inglés) está activada en sus preferencias de WarpOS. "
  118.     "Esta opción genera problemas importantes que afecta a éste y otros "
  119.     "programas, de manera que se recomienda que la desactive.  ¿Quiere "
  120.     "desconectar dicha opción ahora?"
  121.   ))
  122.  
  123.   (set #str-off "Desactivarla")
  124.   (set #str-leave "Dejarla tal cual")
  125.  
  126.  
  127.   ; v1.7
  128.   (set #str-woserr (cat
  129.     "La versión WarpOS de \"Warp%s\" requiere la versión 5.0 o superior de WarpUp. "
  130.     "Ya no se ofrece soporte para la versión 4.0 de WarpUp debido a que contiene "
  131.     "errores que impiden que este tipo de dato funcione correctamente... o sea, "
  132.     "que necesita actualizarse."
  133.   ))
  134.  
  135.   (set #str-classdir "Elija dónde ha de instalarse la clase\n(no cambie la ruta/camino por defecto a menos que sepa lo que está haciendo).")
  136.   (set #str-descdir "Elija dónde instalar el descriptor\n(no cambie la ruta/camino por defecto a menos que sepa lo que está haciendo).")
  137. ))
  138.  
  139. ;*****************
  140. ; French strings (19/07/01) by Bovier Philippe
  141. ;
  142. (if (= @language "français") (
  143. (set #str-kick3 "Au minimum un Kickstart 3.0 ou supérieur est requis pour utiliser cette datatype.")
  144. (set #str-installdt "Installation de la Datatype")
  145. (set #str-installclass "Installation de la classe Warp%s.datatype")
  146. (set #str-installdes "Installation de la Description")
  147. (set #str-wrongcpu "Au minimum un processeur 68020 est requis pour utiliser cette datatype.")
  148. (set #str-oldpicdt (cat
  149.     "Warp%s.datatype nécesite la picture.datatype v43 ou supérieur.\n\n"
  150.     "Cette datatype est fournis avec l'AmigaOS 3.5, P96 et CyberGraphX."
  151. ))
  152. (set #str-backupdesc (cat
  153.     "Vous possédez déjà une description %s installé.  Désirez-vous "
  154.     "garder une sauvegarde de cette description ?\n\n(Si ceci est votre première "
  155.     "installation de la Warp%s.datatype, vous devriez, probablement)"
  156. ))
  157. (set #str-backup "Sauvegarder existant")
  158. (set #str-overwrite "Remplacer existant")
  159. (set #str-backupdir "Ou désirez-vous que la description %s soit sauvegardée ?")
  160. (set #str-backingup "Sauvegarde des fichiers")
  161. (set #str-reboot "Il est nécessaire de redémarrer votre Amiga pour que les changements soient pris en compte.")
  162. (set #str-askcpu "Choisissez la version de la librairie à installer, en concordance avec votre processeur 68XXX ")
  163. (set #str-patch "Création de la version spécifique à votre processeur")
  164. (set #str-askmorphos (cat
  165.     "Il est possible d'avoir aussi la version 68k ou WarpOS installé (qui "
  166.     "sera automatiquement utilisée si vous démarrez votre Amiga avec ou sans MorphOS):"
  167. ))
  168. (set #str-earlyterm (cat
  169.     "Early Term est activé dans vos préférences WarpOS - Ce qui habituellement cause "
  170.     "d'importants problèmes, qui affectent ce et d'autres programmes.  Il est "
  171.     "chaudement recommandé de désactiver ce paramètre.  Désactivation du paramètre "
  172.     "Early Term maintenant ?"
  173. ))
  174. (set #str-off "Désactivation du paramètre")
  175. (set #str-leave "Le laisser tel qu'il est")
  176. ))
  177.  
  178. ;*****************
  179. ; Polish strings (c) 13.10.2003 by Mariusz Danilewicz <mandi@interia.pl>
  180. ;
  181. (if (= @language "polski") (
  182. (set #str-welcome (cat
  183.     "\n\nWarp%s.datatype\n\n"
  184.     "Copyright (c) 2003-2004 Oliver Roberts, Wszelkie prawa zastrzeûone.\n\n"
  185.     "Oprogramowanie to ma status SHAREWARE, co oznacza, iû powinieneô je zarejestrowaê "
  186.         "jeôli po trzydziestodniowym okresie testowym okaûe sië, iû jest ono Ci pomocne "
  187.         "i bëdziesz chciaî kontynuowaê jego uûywanie.\n\n"
  188.     "www.warpdt.co.uk")
  189. )
  190. (set #str-kick3 "Musisz uûywaê Kickstartu w wersji 3.0 lub nowszej aby korzystaê z datatype'ów.")
  191. (set #str-installdt "Instalacja Datatype'u")
  192. (set #str-installclass "Instalujë klasë Warp%s.datatype")
  193. (set #str-installdes "Instalacja pliku opisu")
  194. (set #str-wrongcpu "Aby uûywaê tego datatype'u musisz mieê procesor co najmniej 68020.")
  195. (set #str-oldpicdt (cat
  196.     "Warp%.datatype wymaga picture.datatype w wersji v43 lub nowszej.\n\n"
  197.     "Taki datatype jest dostarczany z AmigaOS 3.5, P96 i CyberGraphX."
  198. ))
  199. (set #str-backupdesc (cat
  200.     "Masz juû zainstalowany plik opisu datatype'u %s. Czy chcesz utworzyê "
  201.     "kopië bezpieczeïstwa tego pliku?\n\n(Jeôli pierwszy raz instalujesz "
  202.     "Warp%s.datatype, powinieneô utworzyê kopië bezpieczeïstwa)"
  203. ))
  204. (set #str-backup "Utwórz kopië bezpieczeïstwa")
  205. (set #str-overwrite "Zastâp")
  206. (set #str-backupdir "Gdzie zapisaê kopië bezpieczeïstwa pliku opisu datatype'u %s?")
  207. (set #str-backingup "Tworzenie kopii bezpieczeïstwa")
  208. (set #str-reboot (cat
  209.     "Aby uûywaê nowego datatype'u powinieneô uruchomiê ponownie komputer.\n\n"
  210.     "Dodatkowo jeôli w katalogu DEVS:Datatypes masz zainstalowane inne datatype'y dla formatu PCX, "
  211.     "prawdopodobnie bëdziesz musiaî je usunâê rëcznie."
  212. ))
  213. (set #str-askcpu "Wybierz którâ wersjë biblioteki chcesz zainstalowaê, odpowiadajâcâ procesorowi w Twoim komputerze")
  214. (set #str-patch "Tworzenie wersji specjalnie dla okreôlonego przez Ciebie procesora")
  215. (set #str-askmorphos (cat
  216.     "Jest moûliwe zainstalowanie zarówno wersji dla procesora 68k oraz dla sytemu WarpOS (bëdzie "
  217.     "ona uûywana automatycznie w przypadku nieuruchamiania systemu MorphOS):"
  218. ))
  219. (set #str-earlyterm (cat
  220.     "Opcja 'Early Term' jest wîâczona w Twoich preferencjach systemu WarpOS - przewaûnie opcja ta "
  221.     "powoduje powaûne bîëdy, wpîywajâce na  ten i inne programy. Dlatego teû "
  222.     "zaleca sië wyîâczenie tej opcji. Wyîâczyê të opcjë teraz?"
  223. ))
  224. (set #str-off "Wyîâcz")
  225. (set #str-leave "Pozostaw bez zmian")
  226. ; v1.7
  227. (set #str-woserr (cat
  228.     "Wersja Warp%s dla systemu WarpOS wymaga WarpUp w wersji 5.0 lub nowszej. "
  229.     "WarpUp w wersji 4.0 nie jest juû dîuûej obsîugiwany, gdyû zawiera bîëdy uniemoûliwiajâce "
  230.     "poprawne dziaîanie tego datatype'u, dlatego teû powinieneô dokonaê uaktualnienia."
  231.  
  232. ))
  233. (set #str-classdir "Wybierz gdzie chcesz zainstalowaê plik klasy datatype'u\n(nie zmieniaj domyôlnego katalogu, chyba, ûe jesteô pewien co czynisz)")
  234. (set #str-descdir "Wybierz gdzie chcesz zainstalowaê plik opisu datatype'u\n(nie zmieniaj domyôlnego katalogu, chyba, ûe jesteô pewien co czynisz)")
  235. ))
  236.  
  237. ;**********************
  238. ; Compatibility checks
  239. ;
  240. (set #installer-ver (/ @installer-version 65536))
  241. (set #propchoices (if (< #installer-ver 42) "" "\x1b[2p"))
  242. (set @default-dest "")
  243. (set #cpustr (database "cpu"))
  244. (set #osver (/ (getversion) 65536))
  245.  
  246. (if (< #osver 39)
  247.     (abort #str-kick3)
  248. )
  249.  
  250. (set #cpu -1)
  251.  
  252. (if (= #cpustr "68020") (set #cpu 0))
  253. (if (= #cpustr "68030") (set #cpu 1))
  254. (if (= #cpustr "68040") (set #cpu 2))
  255. (if (= #cpustr "68060") (set #cpu 3))
  256.  
  257. (if (< #cpu 0) (abort #str-wrongcpu))
  258.  
  259. (set #warpos 0)
  260. (set #morphos 0)
  261. (set #os4 0)
  262.  
  263. (if (AND (>= #cpu 2) (exists "LIBS:powerpc.library"))
  264.     (
  265.         (set #ppcver (/ (getversion "LIBS:powerpc.library") 65536))
  266.         (set #warpver (/ (getversion "LIBS:warp.library") 65536))
  267.         (if (AND (>= #ppcver 16) (>= #warpver 5))
  268.             (
  269.                 (set #warpos 1)
  270.                 (set #cpu 5)
  271.             )
  272.         )
  273.     )
  274. )
  275. (if (>= #cpu 2)
  276.     (
  277.         (if (= (run "C:Version >NIL: MorphOS" (safe)) 0)
  278.             (set #morphos 1)
  279.         )
  280.     )
  281. )
  282. (if (AND (>= #osver 50) (NOT #morphos))
  283.     (
  284.         (set #os4 1)
  285.         (set #cpu 4)
  286.     )
  287. )
  288.  
  289. (set #picdt-ok 0)
  290. (if #morphos
  291.     (
  292.         (if (exists "SYS:Classes/Datatypes/picture.datatype.elf")
  293.             (
  294.                 (set #pdtver (/ (getversion "SYS:Classes/Datatypes/picture.datatype.elf") 65536))
  295.                 (if (>= #pdtver 43) (set #picdt-ok 1))
  296.             )
  297.         )
  298.         (if (AND (NOT #picdt-ok) (exists "MOSSYS:Classes/Datatypes/picture.datatype.elf"))
  299.             (
  300.                 (set #pdtver (/ (getversion "MOSSYS:Classes/Datatypes/picture.datatype.elf") 65536))
  301.                 (if (>= #pdtver 43) (set #picdt-ok 1))
  302.             )
  303.         )
  304.         (if (AND (NOT #picdt-ok) (exists "MOSSYS:Classes/Datatypes/picture.datatype"))
  305.             (
  306.                 (set #pdtver (/ (getversion "MOSSYS:Classes/Datatypes/picture.datatype") 65536))
  307.                 (if (>= #pdtver 43) (set #picdt-ok 1))
  308.             )
  309.         )
  310.     )
  311. )
  312. (if (NOT #picdt-ok)
  313.     (if (exists "SYS:Classes/Datatypes/picture.datatype")
  314.         (
  315.             (set #pdtver (/ (getversion "SYS:Classes/Datatypes/picture.datatype") 65536))
  316.             (if (OR (>= #pdtver 43) (= #os4 1)) (set #picdt-ok 1))
  317.         )
  318.     )
  319. )
  320. (if (= #picdt-ok 0)
  321.     (abort (#str-oldpicdt #str-dtname))
  322. )
  323.  
  324.  
  325. ;*************
  326. ; Here we go!
  327. ;
  328. (welcome)
  329.  
  330. (message (#str-welcome #str-dtname))
  331.  
  332. (set #defcpu #cpu)
  333. (if #morphos (set #cpu 6))
  334.  
  335. (set #cpu
  336.     (askchoice
  337.         (prompt #str-askcpu)
  338.         (choices (cat #propchoices "68020") "68030" "68040" "68060" "PowerPC (OS4)" "PowerPC (WarpOS)" "PowerPC (MorphOS)")
  339.         (default #cpu)
  340.         (help @askchoice-help)
  341.     )
  342. )
  343.  
  344. (set #morphos (= #cpu 6))
  345.  
  346. (if #morphos
  347.     (set #cpu
  348.         (askchoice
  349.             (prompt #str-askmorphos)
  350.             (choices (cat #propchoices "68020") "68030" "68040" "68060" "PowerPC (OS4)" "PowerPC (WarpOS)" "Only install MorphOS version")
  351.             (default #defcpu)
  352.             (help @askchoice-help)
  353.         )
  354.     )
  355. )
  356.  
  357. (if (AND (= #cpu 5) (= #warpos 0))
  358.     (
  359.         (message (#str-woserr #str-dtname))
  360.         (set #cpu
  361.             (askchoice
  362.                 (prompt #str-askcpu)
  363.                 (choices (cat #propchoices "68020") "68030" "68040" "68060" "PowerPC (OS4)" "PowerPC (MorphOS)")
  364.                 (default #defcpu)
  365.                 (help @askchoice-help)
  366.             )
  367.         )
  368.  
  369.         (set #morphos (= #cpu 5))
  370.  
  371.         (if #morphos
  372.             (set #cpu
  373.                 (askchoice
  374.                     (prompt #str-askmorphos)
  375.                     (choices (cat #propchoices "68020") "68030" "68040" "68060" "PowerPC (OS4)" "Only install MorphOS version")
  376.                     (default #defcpu)
  377.                     (help @askchoice-help)
  378.                 )
  379.             )
  380.         )
  381.         (if (= #cpu 5) (set #cpu 6))
  382.     )
  383. )
  384.  
  385. (if (= #cpu 5)
  386.     (if (= (getenv "powerpc/earlyterm") "1")
  387.         (if    (askbool
  388.                 (prompt #str-earlyterm)
  389.                 (help "")
  390.                 (default 0)
  391.                 (choices #str-off #str-leave)
  392.             )
  393.             (
  394.                 (textfile
  395.                     (dest "ENV:powerpc/earlyterm")
  396.                     (append "0")
  397.                 )
  398.                 (textfile
  399.                     (dest "ENVARC:powerpc/earlyterm")
  400.                     (append "0")
  401.                 )
  402.             )
  403.         )
  404.     )
  405. )
  406.  
  407. (set #descdir
  408.     (askdir
  409.         (prompt #str-descdir)
  410.         (help @askdir-help)
  411.         (default "DEVS:Datatypes")
  412.     )
  413. )
  414.  
  415. (set #classdir
  416.     (askdir
  417.         (prompt #str-classdir)
  418.         (help @askdir-help)
  419.         (default "SYS:Classes/Datatypes")
  420.     )
  421. )
  422.  
  423. (working #str-installdt)
  424.  
  425. (if (= #cpu 0)
  426.     (set #dtname "Classes/Datatypes/WarpPCX.datatype.020")
  427. )
  428. (if (= #cpu 1)
  429.     (
  430.         (working #str-patch)
  431.         (run "spatch -ot:WarpPCX.datatype.030 -pclasses/datatypes/WarpPCX.datatype.030.pch classes/datatypes/WarpPCX.datatype.020" (safe))
  432.         (set #dtname "t:WarpPCX.datatype.030")
  433.     )
  434. )
  435. (if (= #cpu 2)
  436.     (
  437.         (working #str-patch)
  438.         (run "spatch -ot:WarpPCX.datatype.040 -pclasses/datatypes/WarpPCX.datatype.040.pch classes/datatypes/WarpPCX.datatype.020" (safe))
  439.         (set #dtname "t:WarpPCX.datatype.040")
  440.     )
  441. )
  442. (if (= #cpu 3)
  443.     (
  444.         (working #str-patch)
  445.         (run "spatch -ot:WarpPCX.datatype.060 -pclasses/datatypes/WarpPCX.datatype.060.pch classes/datatypes/WarpPCX.datatype.020" (safe))
  446.         (set #dtname "t:WarpPCX.datatype.060")
  447.     )
  448. )
  449. (if (= #cpu 4)
  450.     (set #dtname "Classes/Datatypes/WarpPCX.datatype.os4")
  451. )
  452. (if (= #cpu 5)
  453.     (set #dtname "Classes/Datatypes/WarpPCX.datatype.wos")
  454. )
  455.  
  456. (if (< #cpu 6)
  457.     (
  458.         (copyfiles
  459.             (help @copyfiles-help)
  460.             (prompt (#str-installclass #str-dtname))
  461.             (source #dtname)
  462.             (dest #classdir)
  463.             (newname "WarpPCX.datatype")
  464.             (confirm)
  465.         )
  466.         (if (AND (> #cpu 0) (< #cpu 4))
  467.             (delete #dtname (safe))
  468.         )
  469.     )
  470. )
  471.  
  472. (if #morphos
  473.     (copyfiles
  474.         (help @copyfiles-help)
  475.         (prompt (#str-installclass #str-dtname))
  476.         (source "Classes/Datatypes/WarpPNG.datatype.mos")
  477.         (newname "WarpPNG.datatype.elf")
  478.         (dest #classdir)
  479.         (confirm)
  480.     )
  481. )
  482.  
  483. (if (exists (tackon #descdir "PCX"))
  484.     (if    (askbool
  485.             (prompt (#str-backupdesc #str-dtname #str-dtname))
  486.             (help "")
  487.             (default 0)
  488.             (choices #str-backup #str-overwrite)
  489.         )
  490.         (
  491.             (set #bakdir
  492.                 (askdir
  493.                     (prompt (#str-backupdir #str-dtname))
  494.                     (help @askdir-help)
  495.                     (default "SYS:Storage/Datatypes")
  496.                 )
  497.             )
  498.             (copyfiles
  499.                 (help @copyfiles-help)
  500.                 (prompt #str-backingup)
  501.                 (source (tackon #descdir ("PCX")))
  502.                 (dest #bakdir)
  503.                 (infos)
  504.                 (confirm)
  505.             )
  506.         )
  507.     )
  508. )
  509.  
  510. (if (= #cpu 4)
  511.     (set #descname "Devs/Datatypes/PCX.os4")
  512.     (set #descname "Devs/Datatypes/PCX.68k")
  513. )
  514. (copyfiles
  515.     (help @copyfiles-help)
  516.     (prompt #str-installdes)
  517.     (source #descname)
  518.     (newname "PCX")
  519.     (dest #descdir)
  520.     (confirm)
  521. )
  522. (copyfiles
  523.     (help @copyfiles-help)
  524.     (prompt #str-installdes)
  525.     (source "Devs/Datatypes/PCX.info")
  526.     (dest #descdir)
  527.     (confirm)
  528. )
  529.  
  530. (run ("C:AddDataTypes \"%s\" >NIL: REFRESH" (tackon #descdir "#?")))
  531. (run "C:Avail FLUSH >NIL:")
  532.  
  533. (exit #str-reboot)
  534.